home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rotate / flip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-09-22  |  2.7 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Rotate.DLL Evaluation"
  4.    ClientHeight    =   4380
  5.    ClientLeft      =   1035
  6.    ClientTop       =   555
  7.    ClientWidth     =   7365
  8.    Height          =   4785
  9.    Left            =   975
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4380
  12.    ScaleWidth      =   7365
  13.    Top             =   210
  14.    Width           =   7485
  15.    WindowState     =   2  'Maximized
  16.    Begin CommandButton Command3 
  17.       Caption         =   "Exit"
  18.       Height          =   495
  19.       Left            =   3030
  20.       TabIndex        =   4
  21.       Top             =   1200
  22.       Width           =   1260
  23.    End
  24.    Begin CommandButton Command2 
  25.       Caption         =   "Rotate"
  26.       Height          =   495
  27.       Left            =   3030
  28.       TabIndex        =   3
  29.       Top             =   240
  30.       Width           =   1260
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Mirror"
  34.       Height          =   495
  35.       Left            =   3030
  36.       TabIndex        =   2
  37.       Top             =   720
  38.       Width           =   1260
  39.    End
  40.    Begin PictureBox Picture2 
  41.       AutoRedraw      =   -1  'True
  42.       Height          =   3015
  43.       Left            =   240
  44.       ScaleHeight     =   199
  45.       ScaleMode       =   3  'Pixel
  46.       ScaleWidth      =   178
  47.       TabIndex        =   1
  48.       Top             =   1185
  49.       Width           =   2700
  50.    End
  51.    Begin PictureBox Picture1 
  52.       AutoRedraw      =   -1  'True
  53.       AutoSize        =   -1  'True
  54.       Height          =   690
  55.       Left            =   120
  56.       Picture         =   FLIP.FRX:0000
  57.       ScaleHeight     =   44
  58.       ScaleMode       =   3  'Pixel
  59.       ScaleWidth      =   172
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   2610
  63.    End
  64. Declare Function FLIP Lib "rotate.DLL" (ByVal src As Integer, ByVal dest As Integer, ByVal Picture%) As Integer
  65. Declare Function ROTATE Lib "rotate.DLL" (ByVal src2 As Integer, ByVal dest2 As Integer, ByVal Picture2%) As Integer
  66. Sub Command1_Click ()
  67. screen.MousePointer = 11
  68. Dim g As Integer
  69. Picture2.Picture = LoadPicture()
  70. Picture2.Width = Picture1.Width
  71. Picture2.Height = Picture1.Height
  72. g = FLIP(form1.Picture1.hDC, form1.Picture2.hDC, form1.Picture1.Picture)
  73. Picture2.Refresh
  74. Picture2.Picture = Picture2.Image
  75. screen.MousePointer = 0
  76. End Sub
  77. Sub Command2_Click ()
  78. screen.MousePointer = 11
  79. Picture2.Picture = LoadPicture()
  80. Dim g As Integer
  81. Picture2.Width = Picture1.Height
  82. Picture2.Height = Picture1.Width
  83. g = ROTATE(Picture1.hDC, Picture2.hDC, Picture1.Picture)
  84. Picture2.Refresh
  85. Picture2.Picture = Picture2.Image
  86. screen.MousePointer = 0
  87. End Sub
  88. Sub Command3_Click ()
  89. End Sub
  90.